home *** CD-ROM | disk | FTP | other *** search
/ Softdisk G-S 93 / SGDS 93.2mg / SDGS.93 / SDA93 / A / M.GRAPH.MAIN (.txt) < prev    next >
Encoding:
Applesoft BASIC Source Code  |  1989-05-22  |  3.0 KB  |  131 lines  |  [FC] Applesoft BASIC Program (0x0801)
  1. 0 DFAULTPTH$ = "/SDA93/A/                                                       "
  2. 5  IF RNPTH$ = ""  THEN  PRINT  CHR$(4)"prefix": INPUT RNPTH$
  3. 10 BOX = 3328: INVERSE 
  4. 11 ES$ =  CHR$(27)
  5. 12  IF OP$(3) < >"Yes"  THEN OP$(0) = "Yes":OP$(1) = "No":OP$(2) = "No":OP$(3) = "No": REM screen/file/printer output flags
  6. 20  CALL BOX,1,1,40,24
  7. 40  PRINT "   Mighty Graph     by Jim Weiler"
  8. 45  REM =========
  9. 46  REM Main Menu
  10. 47  REM =========
  11. 50  CALL BOX,2,3,39,22
  12. 60  PRINT "   Main Menu"
  13. 70  PRINT 
  14. 80  PRINT "1. Data Entry"
  15. 90  PRINT "2. Graphs"
  16. 110  PRINT "3. Output Device"
  17. 120  PRINT "4. Disk Functions"
  18. 121  PRINT "5. Info"
  19. 122  PRINT "6. Quit"
  20. 130 PR$ = " Press the number of your choice.": GOSUB 50000
  21. 140  GET K$
  22. 145  IF K$ =  CHR$(27)  THEN K$ = "6"
  23. 150  IF   NOT  VAL(K$)  THEN  GOSUB 51000: GOTO 130
  24. 160 M1 =  VAL(K$): IF M1 >6  THEN  GOSUB 51000: GOTO 130
  25. 170  ON M1 GOSUB 1000,2000,4000,6000,63000,5000
  26. 180  GOTO 20
  27. 1000  REM ==========
  28. 1010  REM Data Entry
  29. 1020  REM ==========
  30. 1030  ONERR  GOTO 10000
  31. 1040  CALL BOX,11,10,18,3: PRINT "   One moment...": PRINT  CHR$(4)"CHAIN M.GRAPH.INPT"
  32. 2000  REM ======
  33. 2010  REM Graphs
  34. 2020  REM ======
  35. 2030  ONERR  GOTO 10000
  36. 2040  CALL BOX,11,10,18,3: PRINT "   One moment...": PRINT  CHR$(4)"CHAIN M.GRAPH.DRAW"
  37. 4000  REM =======
  38. 4010  REM Output
  39. 4020  REM =======
  40. 4030  CALL BOX,3,5,38,20
  41. 4040  PRINT "   Output Device"
  42. 4050  PRINT 
  43. 4060  PRINT "1. Screen";: HTAB 19: PRINT OP$(0)
  44. 4070  PRINT "2. File";: HTAB 19: PRINT OP$(1)
  45. 4080  PRINT "3. Printer";: HTAB 19: PRINT OP$(2);
  46. 4090  IF OP$(2) < >"No"  THEN  PRINT PR;
  47. 4100  PRINT 
  48. 4110  PRINT "4. Lock Setting";: HTAB 19: PRINT OP$(3)
  49. 4120  PRINT "5. Exit"
  50. 4130 PR$ = " Press the number of your choice.": GOSUB 50000
  51. 4140  GET K$
  52. 4150  IF K$ = ES$  OR K$ = "5"  THEN 4220
  53. 4160  IF K$ = "1"  THEN  GOSUB 4230:OP$(0) = "Yes"
  54. 4170  IF K$ = "2"  THEN  GOSUB 4230:OP$(1) = "Yes"
  55. 4180  IF K$ = "3"  THEN  GOSUB 4270:OP$(2) = "Yes, to slot "
  56. 4190  IF K$ = "4"  THEN  GOSUB 4240
  57. 4200  IF   NOT  VAL(K$)  OR  VAL(K$) >4  THEN  GOSUB 51000: GOTO 4130
  58. 4210  GOTO 4000
  59. 4220  RETURN 
  60. 4230 OP$(0) = "No":OP$(1) = "No":OP$(2) = "No": RETURN 
  61. 4240  IF OP$(3) = "Yes"  THEN OP$(3) = "No": RETURN 
  62. 4250  IF OP$(3) = "No"  THEN OP$(3) = "Yes": RETURN 
  63. 4260  RETURN 
  64. 4270  IF OP$(2) < >"No"  THEN PR = PR +1: IF PR >7  THEN PR = 1
  65. 4280  IF PR = 3  THEN PR = 4
  66. 4290  GOSUB 4230
  67. 4300  RETURN 
  68. 5000  REM ====
  69. 5010  REM Quit
  70. 5020  REM ====
  71. 5030  CALL BOX,5,10,30,8
  72. 5040  PRINT : PRINT "   Press RETURN to quit."
  73. 5050  PRINT 
  74. 5060  PRINT "    Press any other key"
  75. 5070  PRINT "        to continue."
  76. 5080 PR$ = "          Press a key.           ": GOSUB 50000
  77. 5090  GET K$
  78. 5100  IF K$ < > CHR$(13)  THEN  RETURN 
  79. 5110  ONERR  GOTO 10000
  80. 5120  ONERR  GOTO 5210
  81. 5130  PRINT  CHR$(4)"PREFIX": INPUT K$: IF K$ < >"/RAM/"  THEN 5210
  82. 5140  PRINT  CHR$(4)"DELETE/RAM/M.GRAPH.MAIN"
  83. 5150  PRINT  CHR$(4)"DELETE/RAM/M.GRAPH.DRAW"
  84. 5160  PRINT  CHR$(4)"DELETE/RAM/M.GRAPH.INPT"
  85. 5170  PRINT  CHR$(4)"DELETE/RAM/M.GRAPH.BGIN"
  86. 5180  PRINT  CHR$(4)"DELETE/RAM/M.GRAPH.PRNT"
  87. 5190  PRINT  CHR$(4)"DELETE/RAM/M.GRAPH.FILE"
  88. 5200  PRINT  CHR$(4)"DELETE/RAM/M.GRAPH.SHTB"
  89. 5210  PRINT  CHR$(20) CHR$(12)
  90. 5220  POKE 104,8: GOTO 150
  91. 6000  REM ==========
  92. 6010  REM disk funct
  93. 6020  REM ==========
  94. 6030  ONERR  GOTO 10000
  95. 6040  CALL BOX,11,10,18,3: PRINT "   One moment...": PRINT  CHR$(4)"CHAIN M.GRAPH.FILE"
  96. 9000  END 
  97. 10000  CALL  -3288
  98. 10010  POKE 216,0
  99. 10020  CALL BOX,5,5,30,15: PRINT : PRINT "          FATAL ERROR."
  100. 10030  PRINT : PRINT "     Missing a module."
  101. 10040  PRINT : PRINT "  Press a key to exit."
  102. 10050  GET K$
  103. 10060  POKE 104,8: GOTO 150
  104. 50000  REM ==========
  105. 50010  REM Prompt Box
  106. 50020  REM ==========
  107. 50030 W =  LEN(PR$) +2
  108. 50040  CALL BOX,40 -W,21,W,3
  109. 50050  PRINT PR$
  110. 50060  RETURN 
  111. 51000  REM ====
  112. 51010  REM Bell
  113. 51020  REM ====
  114. 51030  CALL  PEEK(121) + PEEK(122) *256 +28: REM  SPEED=   DEL <UNKNOWN TOKEN> SPEED= <CTRL-0x01> DEL <UNKNOWN TOKEN> SPEED= <CTRL-0x02><CTRL-0x18> HGR2 <CTRL-0x14> PLOT 0 TAB(  SPEED= <CTRL-0x02> DEL <UNKNOWN TOKEN> SPEED= $<CTRL-0x18> HGR2 <CTRL-0x08> PLOT 0 TAB(   NOT <UNKNOWN TOKEN> =  STR$`8H RIGHT$<CTRL-0x01> = <UNKNOWN TOKEN>h RIGHT$<CTRL-0x01> = <UNKNOWN TOKEN> ONERR <UNKNOWN TOKEN> -<CTRL-0x01><UNKNOWN TOKEN> RND =  VAL:`
  115. 51040  RETURN 
  116. 63000  REM ====
  117. 63010  REM Info
  118. 63020  REM ====
  119. 65535  CALL BOX,3,5,38,20
  120. 65535  PRINT "   Info"
  121. 65535  PRINT : PRINT : PRINT : PRINT 
  122. 65535  PRINT "    Mighty Graph    by Jim Weiler"
  123. 65535  PRINT "Copyright (c) 1989 by Softdisk, Inc";
  124. 65535  PRINT "        All rights reserved"
  125. 65535  PRINT "      Published on Softdisk 93"
  126. 65535  PRINT "    Subscriptions 1-800-831-2694"
  127. 65535  PRINT "  Changing this notice is illegal."
  128. 65535  PRINT 
  129. 65535 PR$ = "Press a key.": GOSUB 50000
  130. 65535  POKE 49168,0: WAIT 49152,128: POKE 49168,0
  131. 65535  RETURN